home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / tracefnt.sty < prev    next >
Text File  |  1991-05-20  |  7KB  |  181 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. % TRACEFNT.STY                            July 1990      %
  3. %                                                                          %
  4. % This file is part of the AMS-LaTeX Version 1.0 distribution              %
  5. %   American Mathematical Society, Technical Support Group,                %
  6. %   P. O. Box 6248, Providence, RI 02940                                   %
  7. %   800-321-4AMS (321-4267) or 401-455-4080                                %
  8. %   Internet: Tech-Support@Math.AMS.com                                    %
  9. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  10. %%
  11. %% This is file `tracefnt.sty' generated
  12. %% on <1990/6/30> with the docstrip utility (v1.1k).
  13. %%
  14. %% The original source file was `tracefnt.doc'.
  15. %% Included modules: `trace,style'.
  16. %%
  17. %%
  18. %% Copyright (C) 1989,1990 by Frank Mittelbach, Rainer Schoepf.
  19. %% All rights reserved.
  20. %%
  21. %% IMPORTANT NOTICE:
  22. %%
  23. %% You are not allowed to change this file. You may however copy this file
  24. %% to a file with a different name and then change the copy.
  25. %%
  26. %% You are allowed to distribute this file under the condition that it is
  27. %% distributed together with all files mentioned in readme.mz3. If you
  28. %% receive only some of these files from someone, complain!
  29. %%
  30. %% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED
  31. %% to take money for the distribution or use of either this file or a
  32. %% changed version, except for a nominal charge for copying etc.
  33. %%
  34. %% Error Reports in case of UNCHANGED versions to
  35. %%
  36. %% F. Mittelbach
  37. %% Eichenweg 29
  38. %% D-6500 Mainz 1
  39. %% Federal Republic of Germany
  40. %% Bitnet: <PZF5HZ@DRUEDS2>
  41. %%
  42. %% or:
  43. %% R. Sch\"opf
  44. %% Inst. f. Theor. Physik
  45. %% der Universit\"at Heidelberg
  46. %% Philosophenweg 16
  47. %% D-6900 Heidelberg
  48. %% Federal Republic of Germany
  49. %% Bitnet: <BK4@DHDURZ1>
  50. %%
  51. %%
  52. \def\fileversion{v1.0p}
  53. \def\filedate{90/06/30}
  54. \def\docdate {90/04/05}
  55.  
  56. %% \CheckSum{288}
  57. %% \CharacterTable
  58. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  59. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  60. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  61. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  62. %%   Dollar        \$     Percent       \%     Ampersand     \&
  63. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  64. %%   Asterisk      \*     Plus          \+     Comma         \,
  65. %%   Minus         \-     Point         \.     Solidus       \/
  66. %%   Colon         \:     Semicolon     \;     Less than     \<
  67. %%   Equals        \=     Greater than  \>     Question mark \?
  68. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  69. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  70. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  71. %%   Right brace   \}     Tilde         \~}
  72. %%
  73. \@ifundefined{new@fontshape}
  74.  {\errmessage{The style option `tracefnt' does not make sense if you
  75.               do not use a format with the new font selection scheme.}
  76.   \endinput}
  77.   {}
  78.  \immediate\write\sixt@@n{Style Option: `tracefnt'
  79.  \fileversion\space <\filedate>  (FMi and RmS)}
  80. \immediate\write\sixt@@n{English Documentation
  81.  \@spaces\@spaces\space  <\docdate>  (FMi and RmS)}
  82. \immediate\write\sixt@@n{Includes module(s):
  83.  trace
  84. }
  85. \def\extract@font{%
  86.     \def\@tempa{\def\extract@fontinfo####1}%
  87.     \edef\@tempb{<\expandafter\strip@prefix\meaning\f@size>}%
  88.     \expandafter\@tempa\@tempb##2##3<##4\@nil{%
  89.       \global\expandafter\font \font@name
  90.            \ifcase0##2##3\relax\or
  91.                    ##3
  92.                     \font@warning{Font/shape
  93.                               `\f@family/\f@series/\f@shape'
  94.                               in size \@tempb\space  not available}%
  95.                     \font@warning{Using external font `##3'
  96.                                     instead}\else
  97.                   \default@errfont \errhelp\nofont@help
  98.                          \errmessage{Font \expandafter
  99.                                     \string\font@name\space
  100.                                     not found}%
  101.                \fi
  102.    \ifnum \tracingfonts >\@ne
  103.    \typeout{Loading external  ##2##3 as \font@name
  104.             \on@line}\fi
  105.               }%
  106.     \edef\font@info{\expandafter\expandafter\expandafter\string
  107.         \csname \f@family/\f@series/\f@shape \endcsname\@tempb}%
  108.     \expandafter\extract@fontinfo\font@info 3<\@nil
  109.     \csname +\f@family \expandafter
  110.        \endcsname \font@name \relax}
  111.  
  112. \def\p@selectfont{%
  113.     \xdef\font@name{%
  114.       \csname\f@family/\f@series/\f@shape/\f@size\endcsname}%
  115.     \pickup@font
  116.     \font@name
  117.  \ifnum \tracingfonts>\tw@
  118.    \typeout{Switching to \font@name \on@line}\fi
  119.     \ifx \glb@currsize \lcl@currsize
  120.      \else
  121.     \setnew@baselineskip
  122.     \baselineskip\baselinestretch\baselineskip
  123.     \setbox\strutbox\hbox{\vrule\@height.7\baselineskip
  124.         \@depth.3\baselineskip \@width\z@}%
  125.     \normalbaselineskip\baselineskip
  126.      \glb@settings \the\every@size
  127.        \aftergroup\glb@settings \fi
  128.  \ifnum \tracingfonts>\tw@
  129.   \gdef\font@restore{\xdef\font@name{%
  130.     \csname\f@family/\f@series/\f@shape/\f@size\endcsname}%
  131.     \typeout{Restoring \space\space\space\font@name \on@line}%
  132.     \global\let\font@restore\@empty}%
  133.    \aftergroup\font@restore
  134.  \fi
  135.     }
  136. \def\baselinestretch{1}
  137. \newtoks\every@size
  138. \every@size={}
  139. \def\use@mathgroup#1#2{\relax\ifmmode
  140.  \ifnum \tracingfonts>\tw@
  141.    \typeout{Switching to \string\mathgroup\space #2 \on@line}\fi
  142.      \math@bgroup
  143.          #1\mathgroup#2\relax
  144.      \expandafter\math@egroup\fi}%
  145. \def\getanddefine@fonts#1#2{%
  146.  \ifnum \tracingfonts>\tw@
  147.    \typeout{Setting up \string\mathgroup\space #1 as
  148.             fontshape \string#2 \f@size/\sf@size/\ssf@size
  149.             \on@line}\fi
  150.   \xdef\font@name{\csname \string#2/\f@size\endcsname}%
  151.   \pickup@font \let\textfont@name\font@name
  152.   \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
  153.   \pickup@font \let\scriptfont@name\font@name
  154.   \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
  155.   \pickup@font
  156.   \edef\math@fonts{\math@fonts
  157.                \textfont#1\textfont@name
  158.                \scriptfont#1\scriptfont@name
  159.                \scriptscriptfont#1\font@name}%
  160.     }
  161. \def\tracingfonts{\font@warning{\string\tracingfonts\space
  162.                   command not provided.^^J
  163.                   Use `tracefnt' option in \string\documentstyle\space
  164.                   command.^^J Command found:}%
  165.                   \count@}
  166.    \newcount\tracingfonts
  167.  \tracingfonts=1
  168. \def\font@warning#1{%
  169.  \ifnum\tracingfonts>\z@
  170.  \errhelp{This is only a warning message but it gives you^^J%
  171.           time to think about the font substitution above.}%
  172.  \errmessage{Warning: #1}\else
  173.           \immediate\write\sixt@@n{Warning: #1 \on@line.}%
  174.  \fi
  175.           }
  176.  
  177. \endinput
  178. %%
  179. %% End of file `tracefnt.sty'.
  180.  
  181.